haskell success program